﻿Imports System.Data.SqlClient

Public Class clsTipo_Os
    Private mTipo_Os As Int32
    Private mDescri As String

    '/////////////////////////////////////////////////////////
    '/ Propiedades
    '/////////////////////////////////////////////////////////
    Public Property Tipo_Os() As Int32
        Get
            Return mTipo_Os
        End Get
        Set(ByVal value As Int32)
            If value > 0 And value < 2000000000 Then
                mTipo_Os = value
            Else
                Throw New Exception("No se puede utilizar el código de tipo de orden de servicio. El código debe ser mayor a cero (0).")
            End If
        End Set
    End Property
    Public Property Descri() As String
        Get
            Return mDescri.Trim.ToUpper
        End Get
        Set(ByVal value As String)
            mDescri = value.Trim.ToUpper
        End Set
    End Property
    '/////////////////////////////////////////////////////////
    '/ Métodos de la Clase
    '/////////////////////////////////////////////////////////

    '---------------------------------------------------------------------
    ' Constructor de la Clase
    '---------------------------------------------------------------------
    Public Sub New()

        MyBase.New()

    End Sub
    '---------------------------------------------------------------------
    ' Destructor de la Clase
    '---------------------------------------------------------------------
    Public Sub Dispose()

        MyBase.Finalize()

    End Sub

End Class

